home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 8 / The Arsenal Files Collection #8 (Arsenal Computer) (1996).ISO / pcboard / upgrade2.zip / UPGRADE.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1996-11-26  |  2KB  |  143 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.3O (Encryption type II) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER002
  20.     Integer  INTEGER003
  21.     Integer  INTEGER004
  22.     Integer  INTEGER005
  23.     Integer  INTEGER006
  24.     Integer  INTEGER007
  25.     Integer  INTEGER008
  26.     Integer  INTEGER009
  27.     Integer  INTEGER010
  28.     String   STRING001
  29.     String   STRING002
  30.     String   STRING003
  31.     String   STRING004
  32.     String   STRING005
  33.  
  34. ;------------------------------------------------------------------------------
  35.  
  36.     If (Exist(PPEPath() + "upgrade.CFG")) Then
  37.         STRING001 = ReadLine(PCBDat(), 31) + ".@@@"
  38.         If (Exist(STRING001)) Goto LABEL001
  39.         PrintLn STRING001 + " does not exist.  Bad path in PCBOARD.DAT"
  40.         End
  41.         :LABEL001
  42.         STRING002 = ReadLine(PCBDat(), 31) + ".ADD"
  43.         If (Exist(STRING002)) Goto LABEL002
  44.         PrintLn STRING002 + " does not exist.  Bad path in PCBOARD.DAT"
  45.         End
  46.         :LABEL002
  47.     Else
  48.         PrintLn PPEPath() + "upgrade.CFG does not exist!  Exiting."
  49.         End
  50.     Endif
  51.     INTEGER002 = S2I(ReadLine(PPEPath() + "upgrade.CFG", 1), 10)
  52.     STRING003 = ReadLine(PPEPath() + "upgrade.CFG", 2)
  53.     STRING004 = ReadLine(PPEPath() + "upgrade.CFG", 3)
  54.     STRING005 = ReadLine(PPEPath() + "upgrade.CFG", 4)
  55.     INTEGER003 = ReadLine(PPEPath() + "upgrade.CFG", 5)
  56.     INTEGER004 = ReadLine(PPEPath() + "upgrade.CFG", 6)
  57.     INTEGER005 = ReadLine(PPEPath() + "upgrade.CFG", 7)
  58.     INTEGER006 = ReadLine(PPEPath() + "upgrade.CFG", 8)
  59.     INTEGER007 = ReadLine(PPEPath() + "upgrade.CFG", 9)
  60.     INTEGER008 = ReadLine(PPEPath() + "upgrade.CFG", 10)
  61.     INTEGER009 = ReadLine(PPEPath() + "upgrade.CFG", 11)
  62.     GetUser
  63.     INTEGER010 = U_Sec
  64.     If (U_Sec >= INTEGER003) Goto LABEL005
  65.     If (U_Logons() < INTEGER004) Goto LABEL005
  66.     If (U_Logons() == INTEGER004) U_Sec = INTEGER005
  67.     If (U_Logons() < INTEGER006) Goto LABEL003
  68.     If (U_Logons() > INTEGER006) Goto LABEL004
  69.     :LABEL003
  70.     If (U_Logons() == INTEGER004) Goto LABEL005
  71.     If (U_Logons() < INTEGER006) U_Sec = INTEGER005
  72.     If (U_Logons() == INTEGER006) U_Sec = INTEGER007
  73.     If (U_Logons() > INTEGER006) Goto LABEL004
  74.     :LABEL004
  75.     If (U_Logons() == INTEGER006) Goto LABEL005
  76.     If (U_Logons() < INTEGER006) Goto LABEL005
  77.     If (U_Logons() < INTEGER008) U_Sec = INTEGER007
  78.     If (U_Logons() >= INTEGER008) U_Sec = INTEGER009
  79.     :LABEL005
  80.     PutUser
  81.     If (U_Sec > INTEGER010) DispFile PPEPath() + PPEName() , 2 + 1 + 4
  82.  
  83. ;------------------------------------------------------------------------------
  84. ;
  85. ; Usage report (before postprocessing)
  86. ;
  87. ; ■ Statements used :
  88. ;
  89. ;    3       End
  90. ;    13      Goto 
  91. ;    19      Let 
  92. ;    3       PrintLn 
  93. ;    17      If 
  94. ;    1       DispFile 
  95. ;    1       GetUser
  96. ;    1       PutUser
  97. ;
  98. ;
  99. ; ■ Functions used :
  100. ;
  101. ;    20      +
  102. ;    4       ==
  103. ;    5       <
  104. ;    3       >
  105. ;    2       >=
  106. ;    3       !
  107. ;    12      U_Logons()
  108. ;    2       PCBDat()
  109. ;    14      PPEPath()
  110. ;    13      ReadLine()
  111. ;    3       Exist()
  112. ;    1       S2I()
  113. ;    1       PPEName()
  114. ;
  115. ;------------------------------------------------------------------------------
  116. ;
  117. ; Analysis flags : Wd
  118. ;
  119. ; W - Write user ■ 5
  120. ;     Program writes a user record. Although this may be normal for a
  121. ;     User Editor, it may also be a way to modify an account level.
  122. ;     ■ Search for : PUTUSER
  123. ;
  124. ; d - Access PCBOARD.DAT ■ 2
  125. ;     Program gets the full pathname to PCBOARD.DAT, this may be usefull
  126. ;     for many PPE so they can find various informations on the system
  127. ;     (system paths, max number of lines in messages, ...) but it may also
  128. ;     be a way to gather vital informations.
  129. ;     ■ Search for : PCBDAT()
  130. ;
  131. ;------------------------------------------------------------------------------
  132. ;
  133. ; Postprocessing report
  134. ;
  135. ;    0       For/Next
  136. ;    0       While/EndWhile
  137. ;    1       If/Then or If/Then/Else
  138. ;    0       Select Case
  139. ;
  140. ;------------------------------------------------------------------------------
  141. ;                 AEGiS Corp - Break the routines, code against the machines!
  142. ;------------------------------------------------------------------------------
  143.